home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qlib205.zip / QLIB.ZIP / TEST / DELAY.ASM < prev    next >
Assembly Source File  |  1997-05-12  |  443b  |  36 lines
  1. include qlib.inc
  2. include stdio.inc
  3. include dos.inc
  4. include conio.inc
  5.  
  6. .code
  7. main proc
  8.   mov ebx,0  ;counter
  9.  
  10.   call clrscr
  11.  
  12. @@:
  13.   callp sleep,1
  14.   callp gotoxy,1,1
  15.   callp printf,"Timer = %i \n",ebx
  16.   inc ebx
  17.   call kbhit
  18.   cmp al,0
  19.   jz @b
  20.   call getch
  21. @@:
  22.   callp delay,1000
  23.   callp gotoxy,1,1
  24.   callp printf,"Timer = %i \n",ebx
  25.   inc ebx
  26.   call kbhit
  27.   cmp al,0
  28.   jz @b
  29.   call getch
  30.  
  31.   ret
  32. main endp
  33.  
  34. end
  35.  
  36.